Class TestResult
	Private objTestResult
	Private strParameterName
	
	Private Sub Class_Initialize()
		Set objTestResult = CreateObject("Scripting.Dictionary")
		
		strParameterName = ""
	End Sub
	
	Private Sub Class_Terminate()
		Set objTestResult = Nothing
	End Sub
	
	Public Property Get Results
		Set Results = objTestResult
	End Property
	
	Public Property Let Value(ByVal strValue)
		objTestResult(strParameterName) = strValue
	
		strParameterName = ""
	End Property
	
	Public Default Function Item(ByVal strItem)
		strParameterName = strItem 
	
		Set Item = Me
	End Function
End Class